home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d15
/
maximo_1.arc
/
TXT.ARC
/
PURCH.TXT
< prev
next >
Wrap
Text File
|
1991-08-20
|
3KB
|
119 lines
;
; PURCH -- (c) 1990 Chris Butler
;
;VIDEO M
set all off
goto top
all:
set all on
top:
global boxllx 0 ; mod 8 = 0
global boxlly 0
global boxw 488
global boxh 115
global boxtitle "Max with Ed the engineer"
set h 17 ; key height
set keycolor 14 ; keytop color in convbox = 14 (yellow)
set txtboxclr 14;
cload max.clp 30 1 0 ; max's face
tran on 15
cload cover.clp 32 0 1
merge toursubs.txt
alice:
set boxtitle "Max and Alice in Accounting"
set entrypoint "entry_10"
pload palette1.pcx 1
palette 1
pfree 1
cload kim.clp 31 1 0
call steps.txt accounting
label401:
newbgrnd "kim1a.pcx" 80 40 1 0 50 5
;mouse on
set str1 "Hi Alice. Do you happen to remember seeing a MAXIMO requisition for"
set str2 " Block Bearings?"
say 1 @str1 @str2
waitkey 50
label1a:
getcmd
if @0<>"backup" label402
noise 500 200 50
waitkey 100
goto label1a
label402:
set str1 "Max, I already sent it to ABC Industrial Supply. And I got a great"
set str2 " price because MAXIMO showed me our purchase history with 3 vendors!"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label401
label403:
newbgrnd "22.pcx" 80 0 1 0 100 9
set str1 "That's great. Can you look up the PO and see when the part's due in?"
set str2 ""
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label402
label404:
newbgrnd "23.pcx" 80 0 0 0 200 9
set str1 "It's due October 1. Max, I love this system. Since I dumped "
set str2 "paperwork requisitions, I've had extra time to price shop vendors."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label403
label405:
set str1 "Right, and we know our vendors are performing better because we can "
set str2 "track them in MAXIMO! Alice would you like to see my draft budget?"
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label404
label406:
newbgrnd "24.pcx" 56 0 0 0 50 9
set str1 "Looks good. Let's see how it compares to this year's budget. "
set str2 "[VIEWERS: TYPE `S' TO SEE WHOLE SCREEN] "
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label405
label407:
newbgrnd "25.pcx" 0 0 0 0 50 9
set str1 "Fantastic! We're forecasting 10% less than last year. MAXIMO means "
set str2 "reduced overtime, fewer parts orders, and best use of shutdown labor."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label406
label408:
newbgrnd "kim1a.pcx" 80 0 0 0 200 9
set str1 "All that, PLUS it looks like you'll have your budget ready on "
set str2 "schedule for the first time ever."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label407
;mouse off
if @all==on linkit
link master.txt entry_10
linkit:
link mis.txt all
; SUBR PURCH